home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / h2pl / tcbreak < prev    next >
Encoding:
Text File  |  1994-12-26  |  179 b   |  18 lines  |  [TEXT/MPS ]

  1. #!/usr/bin/perl
  2.  
  3. require 'cbreak.pl';
  4.  
  5. &cbreak;
  6.  
  7. $| = 1;
  8.  
  9. print "gimme a char: ";
  10.  
  11. $c = getc;
  12.  
  13. print "$c\n";
  14.  
  15. printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
  16.  
  17. &cooked;
  18.